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ABSTRACT 



This paper describes a meta -compiler program which 
processes a BNF-like language and produces a LISP II 
intermediate language program. The program produced 
is a syntax translator. 

The version of the ccmpiler described here exists as 
a LISP 1*5 program and operates on Q<-32 LISP !•$* It 
will produce itself as a LISP II intermediate language 
program. 

The work reported herein is based upon the accomplishments 
of Val Schorre and Lee Schmidt ^ of the Los Angeles Chapter 
of ACM; SIGPLAN Working Group !• 
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1. INTROIXJCTION 

The LISP II programming language is to be processed into LISP II intermediate 
language by a syntax-directed compiler. This compiler is to be produced by 
using a meta* compiler. This document describes the Meta Compiler. The tech- 
nique is based on the work done by Working Group I of the Los Angeles Chapter 
of AOM« 

The Meta Compiler is a model of a machine with an input tape and a push down 
accumulator; the accumulator is referred to as the star stack and is symbolized ^ 
by *. The compiler also has a true/false indicator cell called SIGNAL. The 
Meta Compiler translates a program written in its input language, which re- 
sembles BNF with extensions, into a tree structure. This tree structure is a 
LISP II intermediate language program. The program so translated is usually 
referred to as a compiler. The Meta Compiler used here is itself a Q-32 
LISP 1.5 program. 

A meta -language progrem is organized into a body of rules. Each rule corresponds 
to a syntax equation of BNF. A Rosetta paper follows: 

BNF META Meaning 

(something) SCMETHING Meta -linguistic variables 

A *A' Terminal character or string 

I / Alternation 

I J ( ) Meta -linguistic parentheses 

Writing two entities side by side (such as AB) means that an A is followed by 
a B. The ending s^bol of a rule in LISP -META is the semicolon. BNF has no 
ending symbol for its syntax equations. 

Identifiers are meta -linguistic variables, to wit, other definitions. They may 
also be the names of subroutines. If an identifier is followed by square 
brackets, the identifier then is the name of a routine to be executed* Its 
parameters are enclosed by the brackets and are separated by commas. Strings 
are groups of characters enclosed in primes. These correspond to terminal 
characters. If a prime is to be used within a string, two primes are written. 

The remainder of this document is organized as follows: 

A description of the various routines which are not defined in the syntax 
equation of the Meta Compiler, appears first. If the meta language refers to 
these routines by other than their names, the encoding is also shown. The next 
section is an English -language description of selected equations* A listing of 
the Meta Compiler, written in its own language, appears last. 

.}(. 
Backus Naur Form. 
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2. Syntactic ROUTBrss 

These routines are principally concerned with asking questions ahout the 
characters on the input tape and vhat to do vith them* 

2.1 tmck UNQJJkQ&t ^CBABkOSma* 
Houtine: CMPR string (Compare) 

Meaning : 

When a string is vritten in a syntax equation it means: "If the next group 
of characters on the input tape matches the exhibited string ^move the read 
past those characters and report true. Otherwise repoarb false and do not move 
the read head". 

2.2 MEJPA LANC5UAGES + ^CHARACTERS' 
Routine: CCMPS string (Compare and store) 

Meaning: 

This expression has the same effect as is presented in Section 2.1, except 
that if the answer is true the matched characters are put into the accumulator 

2.3 META LANGUAGE: - 'CHARACTERS' 
Routine: NCOMP string (No compare) 

Meaning : 

If the next characters on the input tape match the eadiibited string, report 
false . If there is no match, report true . However, do not move the read head 
in either event. 

2,k META LANGUAGE: t 'CHARACTERS' 

Routine: CMPR2 string 

Meaning : 

If the next characters on the input tape match the exhibited string, make a 
token (atom) out of the characters, push the token into the accumulator, move 
the read head past those characters, and report true. Otherwise, report false 
and do not move the read head. 
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2.3 MBTA lANGU^GE: .. 
Routine: MARK 

Meaning : 

Syntax equations vhlch have a double period instead of an eqiual si^ are used 
to collect characters and to make tokens out of them. The routine MARK is 
executed when these syntax equations are entered. MARK skips "blanks on the 
input tape and stops at the first non-hlank character. The routine then sets 
the skip blanks flag to "off" so that blanks become significant to all routines 
which look at characters on the input tape; that is, the routines do not bypass 
leading blanks while this flag is off. MARK then sets a mark in the accumulator 
so that all characters put into the accumulator on top of this mark will be 
collected as one token in a first -in first -out manner. 

2.6 META lANGUAGE: ; (AT THE END OF .. EQUATION) 
Routine : TOKEN 

Meaning : 

TOKEN collects all characters, starting with the character above the mark and 
going to the top of the accumulator. These characters are foimed into a token* 
TOKEN then sets the skip blanks flag to" on, "so that routines which lo^ at the 
input tape characters ignore leading blanks. 

2.T META LANGUAGE: ANY 
Routine : ANY 

Meaning: 

Put the next character on the input tape into the accumulator* 

2.8 META LANGUAGE: DELETE 
Routine: DELETE 

Meaning : 

Skip the next character on the input tape. 

2.9 META LANGUAGE: $ 
Routine: $ 

Meaning: 

Recognize zero or more of the following syntactic entities. 
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3. SEMANTIC ROUTINES 

These routines are concerned with building up the tree structure which reflects 
the parse of the syntax. 

3.1 META LANC5UAGE: < 
Routine: FLAG 

Meaninpc : 

Set a flag in the accumulator so that a sub -tree will he formed out of the tokens 
and expressions collected until SEQ ()) is executed. 

3.2 META LANGUAGE: > 
Routine : SEQ 

Meaning : 

Completes the formation of a sub -tree out of whatever has been collected since 
FLAG was executed. 

3.3 META LANGUAGE: *n 
Routine: STARn 

Meaning: 

STARn produces the nth element of the accumulator and removes it from the 
accumulator. 

3*k META LANGUAGE: -Hhi 

Routine: STARnP 

Meaning: 

Copies the nth element of the accumulator onto the top of the accumulator 
without removing it. 

3.5 MEEA LANGUAGE: *[ and $[ 
Routines PUSH parameter 

Meaning : 

Creates a list or node out of the parameters of *[ or $L and leaves it on top 
of the accumulator (*). 
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3.6 META LANGliAGE; , 'CHARACTERS' 
Routine : INSERT string . 

Meaning : 

Push th@ string of characters shcnm In the syntax equation into the accumiLLator* 

3.T META LANGUAGE: t IDENTIFIER 
Routine : LOAD x 

Meaning: 

Push the identifier into the stack. 

3.8 META LANGUAGE: GNl or (212 
Routine: C2I1 or GN2 

Meaning : 

The Oil and GN2 routines are concerned with obtaining labels for transfer 
points. They manipulate a stack called GEN, which is organized into pairs. 
The first element of each pair concerns the GNl routine; the second element 
of each pair concerns the (212 routines. If the first (second) element of the 
top pair is empty, a symbol is generated and put there. The first (second) 
element of the top pair is always produced as output. 

3.9 META LANGUAGES GENl or GEN2 
Routine : GENl or GEN2 

Meaning: 

Push the output of (211 (CSN2) into the accumulator, 

3.10 META LANGUAGE: MAKEATOM 
Routine : MAKEATCM 

Meaning: 

Replace the string of characters on top of the accumulator by an atcm with the 
same print name. 
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3.11 MEi^A LANGUAGE: MAKENUMBER 
Routine : MAKENUMBER 

Meaning : 

Replace the string of digits on top of the accumulator vlth its integer value* 



2 November I965 8 TM-ST10/330/00 



^' BACKUP ROU!]S?INEg 

If more than one syntax equation or alternative start vith the same construct, 
there is a possibility that an ambiguous situation vill arise where backup 
over that first construct must occur in order to go on with the parsing* In 
Q»i.<$v to aeeen^lih the biioHup, %1m titati of tho umahiiii mmt bi §m%^ And 
restored at critical places. Six routines, a stack called BACK and one called 
HAMS are used to attempt to recover from anibiguous situations. 

k.l META LANGUAGE! KPTl 

Routine ; RPn 

Meaning : 

This routine is invoked at the top of a loop set up by the sequence operation 
($). It increments a cell called BACKUP -COUNT. 

If. 2 METEA LANGUAGE: RPT2 
Routine : REr2 

Meaning : 

This routine is invoked at the bottom of a loop set up by the sequence operation 
($). It decrements a cell called BACKUP -COUNT. Whenever this cell is greater 
than zero, nothing is saved and backup does not take place* 

^.3 META LANGUAGE: ENTER X 
Routine: ENTER 

Meaning : 

This routine is used upon entering a syntax equation. The name of the syntax 
equation being entered is saved on a NAME list. A "blip" is pushed into the top 
of BACK for constructs which are collected by this syntax equation. A blip is 
an empty list and is used to collect information. 

The GEN stack has two blips pushed into it , in case generated labels are needed 
by this syntax equation. Then the next entity on the INPOT tape is examined. 
If it is the name of the routine being entered, that name is removed fran the 
input tape and SIGWAL is set to true. 
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k,k mSA LANGUAGES LEAVE 

Routine: LEAVE 

Meaning : 

Invoked upon leaving a s^mtax equation. The GEN stack has its top tvo elomontt 
popped off. If the BACKUP -COUNT cell is zero, then SICBIAL is checked. If 
SIGNAL is tz«ue, then the name of the routine being left is put on top of BACK. 
Otherwise the top element of BACK is popped. In any event, the top element of 
NAME is popped. 

k.3 MBTA LANGUAGE: SAVER 

Routine : SAVER 

Meaning : 

This routine is called at the beginning of an expression and it merely pushes 
a blip into BACK. The blip gets filled by all constructs vhich the expression 
collects . 

k.6 META LANGUAGE: RSTOR 

Routine : RSTOR 

Meaning: 

This routine is called at the end of expressions. If SIGNAL is true, it takes 
the constructs which have been collected by the expression Just processed, and 
groups them with the constructs being collected by the next higher level ex- 
pression, which may be a syntax equation. Otherwise it puts those constructs 
on the INPUT tape* In either event BACK is popped. 

Now it is possible to examine Figure 1, which shows the Meta Compiler, and 
get an approximate idea of what it does. A few sample syntax equations are 
followed through; the remainder of the equations can be used as exercises for 
the interested reader. The extreme left column shows line numbers and is not 
part of the syntax equations. 

l|.50O ID .. LET $(LET / DGT / «-' ,».*) MAKEATCMj 

This is the definition of an identifier. The double dot shows we are forming 
a token and are going to skip leading blanks on the input tape • When the 
first non -blank character is encountered, the SKIP-BLANKS flag is set to false. 
We then transfer to a routine called LET which sees whether the next character 
on the input tape is a letter. If not, we exit ID false. If it is, we look 
for a sequence, which may be empty of LET letters or DGT digits or minus signs, 
which represent hyphens. By examining the LET and DGT equations, we see that if 



2 November I965 10 TM-27IO/330/OO 

000100-*META 

000200-SYNTAX = '^META' 

0000300- < SCRULES 7 -•.FINISH' GOBBLE) ••FINISH* > COMPILE I 

000400-RULE s ID < $CENTER> SCQUOTE* ♦♦133 " " ■ . 

0000500- SCIF^SIGNAL #$CG0 »GN|C3]] 

000600- ( •=• EXPR / 

000700- •;. * SCMARK3 EXPR $tT0KEN3 ) 

0000800- *l*^@eNl SCLEAVEJ > 

0000900- SCFUNCTION^ 4(2#NIL#«CBL0CK#NIL>4<1 33l 

0001000-EXPR s $CSAV£R3 SUBEXP 

0001100- $(•/* SCIF« SIGNAL^ SCGO# 6N1C3 33 

001200- SUBEXP) GENl $CRST0R3 I 

00 1300 -SUBEXP a $ (TESTS 

000M00-' $CIF# $CNOT« SIGNAL3# SCGO* GN1C3 33 / 

0001500- ACTION) GENU 

001600-TESTS « 

001700- ID i'l' PARAMSQ •3* ♦£ ♦g* ♦H / .EMPTY) / 

0001800- STRINGI $CCMPR# *13 / 

002000- *-' STRINGl SCNCOMP, ♦! 3 / 

0002100- *t^ (ID $CLOAD# SCOUOTE* #133 / 

002200- STRINGl $CCMPR2i» *13 ) / 

002300- •(• EXPR •)• I 

002400-ACTION a '.EMPTY' $CSET# SIGNAL* TRUE3 / 

002500- •#• STRINGl 'SCINSERT> #1 3 / 

0002600- '$t' PARAMSQ •3' SEPUSH* *CLIST* ♦US / 

0002700- **£' PARAMSQ1''3' $CPUSH# *n / 

0002800- '<''^$CFLAG3 / •>' $£SEQ3 / 

002900- REPEATI 

003000-PARAM = IDCC PARAMSQ '3' *C ♦2# ♦! 3 / 

0003100- .EMPTY'StLOAD* SCOOOTE* ♦US) / 

0003200- '♦I* $CSTAR13 / •*2* $CSTAR23 / •♦3« $CSTAR33 / 

0003300- '+*!• $CCAR* STAR3 7 •♦♦2' $CCADR# STAR 3 • 

003400- »«i-*3* SCCADDR# STAR 3 7 ' 

003500- '$t' ''PARAMSQ •3^ ♦CLIST* *1 3 / 

003600- **C* PARAMSQl''3' / 

0003700- NUM'/ STRINGl I ' / 

003800-PARAMSQ « < CPARAM $(•*• PARAM) / .EMPTY) > I 

003 900 -PARAMSQ 1 « PARAM C •*• "PARAMSQ 1 

004000- $CCONS# ♦a* ♦13/ .EMPTY) I 

004100-REPEAT a -•$£• •$• $CRPT13 GENl TESTS 

0004200- SCIF^^SIGNAL; $CG0« GN1C3 33 SCRPT23 I 

004300 -GOBBLE » ERROR SC -^J* DELETE) *J« I 

0004400-STRINGl .. "•• S <-••»• ANY /•••••• ,»•••) » • • » 5 

004500- ID .. LET StLET / DGT V •-• * *: * 5 "MAKEATOMl 
004600-NUM .. OGT S DGT MAKENUMBERl ' 

0004700-LET s ♦•A' / ♦•S' / "i-'C' / ♦•D» / +'E" / ♦'F* / ♦•G* / 
0004800- ♦•H'*/ ♦•I'V ♦•J'V ♦•«•"/ +'L'V ♦•«•■/ 
0004900- +'N* / -i-'O* / -i-'P' / ♦'Q* / +*R' / +*S* / 
0005000- +'T* / +*0' / ♦•V / ♦•*»»* / +'X' / ♦•Y» / ♦•Z* I 
0005100-D6T s -S-'d' / *•!• / ♦•2» / ♦•a' / ♦•4' / ' " * * 

0005200- ~ ♦•$•*/ -i-'^'V ♦•?•*/ **8'"/ ♦•9^'l / 

0005300-.FINISM ' . ' ^ 

Figure 1. A Listing of the LISP Meta Ccnapiler 



2 November I965 H TM-27IO/ 330/00 

(last page) 



an appropriate character is recognized it is poshed into the accumulator, *, 
because of the + before each string. However, the ID equation indicates that . 
the minus, if recognized, is not put into the accumulator • The conmia followed 
by the string period, *•* shows that a period is inserted instead. After 
processing such a sequence of characters, a routine called M/VXEATOM is called. 
This subroutine takes all the characters collected as an identifier token and 
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= ».META« 

$(RULES / -*. FINISH" GOBHLE) MTNISH' > CCMPn*E ; 



This equation defines a meta -language program as starting with »l^SfSk» A flag 
is set up so that the entire program will be collected as one list. Then we 
encounter zero or more of RULES. If we do not find the characters .FINISH, 
we call GOBBLE (4300). A cursory glance at GOBBLE shows that it goes to 
ERROR and then reads the input tape deleting characters until it finds a semi- 
colon, at which time it throws that away also and returns to SYNTAX. If we do 
find .FINISH, we close the list which contains the parse of the program being 
defined. Then we go to the LISP compiler. 

It is hoped that the availability of a meta compiler in LISP will make it 
possible to produce the syntax treuislator for LISP II to intermediate language 
more easily. A meta compiler should also facilitate the processing of modifi- 
cations and improvements to the LISP II source language. 

The method of production used was to take the already existing Meta Compiler 
on the Q-32 and make it produce LISP 1.^ output. By the well known bootstrap 
cannibalism it reproduced itself as a LISP 1.5 program. The syntax equations 
are modified to produce LISP II intermediate language and the cannibal eats 
again. 



The. de^i^mdion ot /\(i^/H o^^ ^ M^"^^^'^.^/ 

0001 00-. META <META PROGRAM) 

0000200-SYNTAX ■= ».META' ( ♦<• ID ID •)• 

0000300- .[DEFINE* .C .C .C *2> 

0000400- .CLAMBDA, .CX* Y3* .CCOMPLETE* . CINI TI ALIZE# X* Y3* 

000500- .C*n 3D 3 33 3 COMPILE / .EMPTY) * "" 

0006 00- $<RULE\ -'.FINISH* GOBBLE) 

000700- '.FINISH* I 

0000800-RUliE =ID ( '=' EXPR / 

0000900- '.i' EXPR'.CTOKEN* .CMARK3* *n ) 'J' 

001000- iCDEFINE* .C .C .C *2> - - - - 

0001100- .CLAMBDA, NIL> .CLEAVE* .CENTER3* *n3 331 3 COMPILE ; 

000i200-EXPR = SUBEXP C EXPRl <% EXPR1> . - , 

0001300- tCAND* .COR* *4* *3* *2* -C*13r3# 0K3 / 

0001400- 'V .CBACKUP* *13 < SUBEXP $ EXPR2> 

0001500-i iCRESTORE* •CSAVER3* .CAND* •COR* *2* -C*n-3* OK33 

0001600- / .EMPTY) ; - • 

0001700-EXPRra •*/♦ .CNOT* 0K3 SUBEXP5 

0018 00-EXPR2 = 'N' VC BACKUP* *13 SUBEXPJ 

00 19 00-SUBEXP=' TESTS < BACK TEST < S BACK TEST > 

0002000- .CAND* +3* *2* -C*13-3 / .EMPTY> J 

0021 00- BACKTEST ,= TESTS .COR* *1* .'CSETQ* OK* F33i 

0002200- TESTS = , 

0002300- ID CPARAMSQ .C*2* -C*13- 3 / .EMPTY .C*13 5 / 

0002400- STRINGI .CCMPR* *13 /' 

0002500- '+'STRING1 .CCOMPS* *13 / 

00025 00- •-• STRINGl .CNCOMP* *i3 / 

0002700- 'f CID .CLOAD* .C QUOTE* *133 / 

0002800- STRINGl .CCMPR2* ♦H ) / * 

0002900- •<•■ EXPR '>• .CSEQ* .CFLAGS3* *13 / 

0003000- •<• EXPR ')" •-/ '.EMPTY' tTRUE" / ' * 

0003100- •; • STRING! .C INSERT* *13 / 

0003200- LISTX .CLOAD* +13 / ^ 

0003300- '.(' <$OUTPUT> .CPROG* NIL* -C*13-* .ERETURN* T33 •) • / 

0003400- REPEAT 5 ' ' '•• ■ -- - • 

003500-0 UTPUT = STRINGl .CPRINST* *13 / 

0003600- ID ( PARAMSQ ".CPRINO* .C*2* -C*i3-33 / 

003700- i EMPTY .CPRIN0* *13 ) / ' • * • - 

0003800- STACK .CPRIN0* *13 /" '/ • .pTEF?PRI3 / 

0039 00-REPEAT = '$' TESTS " ■' ' . 

0004000- .CPROG* NIL* 6N1C3* 

0004100- VCCOND* .C*l* .CGO* GN1C3 333* 

0004200- VCRETURN* OK33i 

0004300-STACK = •*!• .CSTAR13 / •*2' .CSTAR23 / 

0004400- •♦3' .'CSTAR33 / •*4' .CSTAR43 / * 

004500- •+*!• *.CCAR*STAR3 / • + *2' .CCADR* STAR3 / 

0004600- •+*3» .CCADDR* STAR3 'I 

000,4700-PARAMSQ »' 'C • < (EXPNQ $( •* • EXPNQ ) / 

0004800- .EMPTY > > •3' .1 " '" ' * 

0004900- GOBBLE = ERRORX $(- V • DELETEX) 'i • % 

0005000-STRINGr •• ' ♦" S <- • ' • ' ANY /*•*•• •* j, • ♦ • •> 

0005100- * •*" .CQUOTE* JJ^n 'i ........ ....•, 

0005200-ID ..'LET SCLET / DGT / •-» * '* •> MAKEATOM^ 

0005300-NUM .. DGT S DGT MAKENUMBER % ' '" 

0005400-LET s'lSITCLETTER * 11% 

0005500-DGT a ISIT CDI6IT* T3; 

00056 00-CHARACTER«. ^#r ANY MAKECHI? J 



005700- ELEMENT = NUM / STRINGl / CHARACTER / I DENT / STACK / J:xMjL ^ 

0005800- LISTX / •( • EXPNQ •> • ; ' ' (J 

OCO59G0-IDENT = ID < ' 

CGGseee-" paramsq .c-ts* -c*n- 3 / 

006 100- (•:[• EXPNQ '3 • 

0006200- . C»:=' EXPNQ .CDEFLIST* 

0006300- .CLIST* .CLIST* *2s *m, . C QUOTE* ♦HJ / 

0006400- .EMPTY .CGET> *\* .CQUOTE*'*133 >> /' 

006 500- \»: = « EXPNQ .CSETG* *2* *13 /* *" " 

0006600- CSETQCID-V* ID-V3 .CQUOTE* *n / .EMPTY >) J 

006 700-LIST-SEQ = '-C ' EXPNQ '3- • * " 

0006800- " C •* • LIST-SEQ .CAPPEND* *2j *13 / .EMPTY)/ 

0006900- EXPQ (•*• LIST-SEQ / .EMPTY .C3 > * 

007000- .CCONSi *2> *n i " . 

007100-LISTX ■»•.£• CUST-SEG / .EMPTY .C3 ) 'J • I 
0007200-EXPQ « WHERE I FUNCTIONC EXPX3 > T3f I * " ' 
0007300-EXPNQ = WHERE C FUNCTIONC EXPX3 * F3 I 
0007400-LlSTEXP ts ELEMENT $(*.l* . C CAR* *13 / 
0007500- * ••2* .CCADR* *n'/''."3* .CCADDRi ^U / 

007600- '.4' VCCADDDR* *U / •:2* .ECDR> *13 / 

0007700- ♦:3* VCCDDR* *13"/ * J 4 * .'CCDDDR* *I3 ) I 

0007800-BASIC = LISTEXP ( •*• BASI C • CCONS* *2* * 13 / 

0007900- .EMPTY); 

0008000-RELATION = BASIC C •= • BASIC .CEQUAL* *2* *U / 
0008100- »-=• BASIC .CNOT* .CEQUAL* *2* *133 /V 

0008200- .EMPTY) > ■ - 

008300-NEGATrON = »- ' RELATION .CNOT* *13 / 

0008400- RELATION/ 

008 500-F ACTOR = NEGATION ( • . A. • FACTOR 

0086 00- .CAND# *2* *13/ .EMPTY) ; 

0008700-EXPX = FACTOR < ».V. ' EXPX 

0008800- .COR> *2* ♦n / .EMPTY) ; 

0008900-LOOPST = •.LOOP *' 'UNTIL • GENl 

009 000- C EXPNQ \ ERRORX $C-» .BEGIN' DELETEX)) 

0009100- ♦.BEGIN' .CCOND* .C*l* . C GO* GN2C3 333 

0009200- $CST\'-'.END' GOBBLE) 

0009300- '.END' '.TGO* GN1C3 3'GEN2.I 

0009400-IFST = ■ '.IF' CEXPNQ \ ERRORX $C- '.BEGIN* DELETEX)) 

0009500-' '.BEGIN 'C '.THEN' / .EMPTY) ^" ' '* : . 

0009600- iCCOND* ".C '.CNOT* *13* . C GO* GN1C3 333 

0009700- $ ST 

0009800- C'.ELSE' .CGO* GN2C3 3 GENl 

0009900- SCST \ -'.END* GOBBLE) 

0010000- '.END' GEN2 / '.END' GENl) i 

0010100-PRINTST « ••PRINT' S OUTPUT '; ' ; 

0010200-ST = EXPNQ';'/ LOOPST / IFSTV PRINTST J 

0010300-IDSeQ s 'C •■<'CFORMAL $( ' S • FORMAL) / .EMPTY) '3* > i 

00i0400-FORMAL alD / ••LOC* IDl' " .... - : ; 

00l0500-PROCEDURE"s '.PROCEDURE • ID I DSEQ •; • 

0010600- C'.LOCAL^ IDSEQ '; • / .EMPTY .*C J ) 

0010700- < S< ST \'-^. RETURN • GOBBLE) 

^2)\mm- '.RETURN' < 'C • EXPNQ .CRETURN* *13 "1 ' / oEMPTY) «; • > 

0010900- iCDEFINE** .1 .C .£ *4*" ' " - - * - ... . 

0011000- VCLAMBDA, *Z* .CPROG* *2* -C*13- 333 333 COMPILE J 

001 1100-LISP-DI VISION = '.LISPX' $ PROCEDURE •.FINIS<» I 

00li200-FLUI D- DECLARATION = '.DECLARE' 'C • * 

0011300- FLUIDl $( •* • FLUIDl) '3 •" '/ •'! 

0011400-FLUIDl ="ID .CCSET* .C*i; NIL33 COMPILE; 
001 1500-PRO6RAM=s~SC SYNTAX^/ LI SP-DI VI SION /" 
0011600- FLUID-DECLARATION) '.STOP''; ' 

001 1700-. FINISH - • - 

001 18 00-. STOP 



(i DEFINE (((MtTA (LAMBUA (X Y) /*T /^ #-/? /? 

(CGMPLtrE (IMTIALIZE X Y[ ( PHuGRAH )))) ))) C l/ l(luyaJL^ /(S^ ytJ^^I^ 

(1 DEFINE (((SVNTAX ( LAMBDA N I L {LEAVE' { ENYek ) " ^ /)I. yf v/^'-^n'^ 

(ANC (CNPK (QUQ1EJ». * ¥\ 't «T *A))) ccruJuL^ t ^ \K^\ W ) 

(OF'itAKD (CR UNO TCMPR (QUCTE ( • { Yj) " / 

(CR (ID) (SETQ OK F)) _ 

(CR (ID) ( SETQ UK F)) 

(CR (CMPR (QUOTE (•)))) (SETQ 0K_ F ) ) 

(OR (LCAD (CONS (QUOTE DEFINE) 

(CONS (CONS (CONS ( CGNS_( STAR2 ) 

(CONS (CONS (QUiJTE LAHBDA) 
(CONS (CONS (QUOTE X) (CONS (QUOTE Y) NIL)) 



(CONS (CONS (QUOTE COMPLETE) 

(CONS (CONS (QUOTE INITIALIZE) 



(CONS (QUOTE X) (CONS (QUOTE Y) Nil))) 
(CONS (CONS (STAR!) NIL) NIL))) NIL))) NIL)) 



ML) NIL) NIL) )) (SETQ OK F)) 
(OR (CCKPI LE) (S ETQ O K F)) ) ( NOT OK ) TR UE) OK) 
(SETQ OK F)) "" "'• " 

(OR (PROG NIL JlOOOOl ( COND ( (RES TORE (SAVER) 

( A NO (OR '( BACKUP (RULE) ) 

(ANC (NCGHP (QUOTE (•• «F »I »N M 'S 'H))) 



(OR (GOBBLE) (SETQ CK F)))) OK)) (GOMOOOOl))) 
(RETURN CK)) (SETQ OK F) ) 



(OR (CJ^PK (QUOTE (». 'F M 'N 'I »S 'H))) (SETQ OK F))))))))) 
1 DEFIN E n (RULE (LAMBDA NIL (LEAVE (ENTER) 

(ANC Tic ) 

(OR (AND (CR (AND (CMPR (QUCTE (•=))) 



(OR (EXPR) (SETQ OK F) )) 
(NOT OK) 



(ANC (CKPR (QUOTE («. • .))) 
(OR (EXPR) (SETQ OK F) ) 



(OR (LCAD (CONS (QUOTE TOKEN) 

(CONS (CONS (QUOTE MARK) NIL) (CONS (START) NIL)))) 



(SETQ OK F)))) OK) (SETQ CK F)) 
(OR (CKPR (QUOTE (» ))) (SETQ OK F)) 



(OR (LCAD (CONS (QUOTE DEFINE) 

(CONS (CONS (CONS (CONS (STAR 2) 

(CONS (CONS (iQUOTE L AH8 DA ) " 
(CONS (QUOTE NIL) 



(CONS (CONS (QUOTE LEAVE) 

(CONS (CONS (QUOTE ENTER) NIL) 



(CONS (START) NIL))) NIL))) NIL)) NIL) NIL) NIL)) 
) (SETQ OK F)) (OR (COMPILE) (SETQ OK F) )))))) )) 



(1 DEFINE {((EXPR (LAMBDA NIL (LEAVE (ENTER) 
(ANC (SUBEXP) , 



(OR (AND (CR (AND (EXPRl) 
{OR (SEQ (FLAGS) 



(PROG NIL M00002 (CONO ((EXPRl) (GO M00002))) 
(RETURN OK) ) ) (SETQ OK F) ) 



(OR (LCAD (CONS (QUOTE AND) 
(CONS (CONS (QUOTE OR) 



(CONS (STAR4) 
(CONS {STAR3) (CGNS {STAR2) (START))))) 



(CCNS (QUOTE OK) NIL)))) (SETQ OK F))) 

(NOT OK) 



(ANC (CMPR (QUOTE (« )) ) 
(OR jLJCAO (CONS (QUOTE BACKUP) (CONS (STAR 1 ) NI L ) ) ) 

(SlfQ 'ok ">)) 
(OR (SEQ (FL»GS) 



(AND (SUBEXP) 
(OR (PROG NIL M00003 (COND ((EXPR2) (GO MDOOOJ))) 



(RETURN OKT) ISBTQ OK fTTT) (SETQ OK fU 

(OR (LCAD (CONS (QUOie RESTORE) J_ 

(CO^S (CCNS (QUOTE SAVER) "NIL) 
(CCNS (CONS (QUOTE AND) 



(CCNS (CGIMS (QUOTE OR) (CONS (STAR2) (START))) 
(CONS (QUOTE OK) NIL))) NIL)))) (SETQ OK E)]) 
(IsOT OK) TRUE) OK) (SETQ (JK F))))))))) 
(1 DEFINE (((EXPKl (LAMBDA NIL (LEAVE (ENTER) 

UNO (Ci^PR^"('Qudt¥"""( •7)")T "" " '" ' " 

(OB (LOAD (CONS (QUOTE NOT) (CCNS (QUOTE OK) NIL))) 



(SETQ OK F)) (OR (SUBEXP) (SETQ OK E))))))))) 

(1 DEF INE (((E)(PR2 (LAHBpA NIL (L EAVE (ENTER) 

1 ANC (CfPR (QUOTlE C* Tf) " " " ' 

(OR (LCAD (CONS (QUOTE BACKUP) (CONS (START) NIL))) 



(SEIQ OK F)) (OR (SUBEXP) (SETQ OK E))))))))) 

( 1 DEFI NE (((SLBEXP (LA^^BDA N IL (LEAVE (ENTER) 

(AND (TESfsT ' "'~ - - 

(OR (AND (CR (AND (BACKTE ST) 

(OR IsrC (FlAGSl 

(PROG NIL H00004 (CONO ((BACKT EST) (GQHQ0004))) 

(RETURN GKlT) (SibtQ CK ff)' 
(OR (LCAU (CONS (QUOTE AND) 



(CONS (STAR3) (CONS (STAR2) (STAR!))))) (StTQOKF))) 
(NOT OK) TRUE) OK) (SETQ OK F))))))))) 



(1 DEFINE (((BACKTlST rLAMBOA NIL (LEAVE (INTER) 
(ANC (TESTS) 



(OR rL(]Ad (CONS (QUOTE OR) 

__JCONS (STAlUj 

rcCNS" (CONS (QUdTE SETli) 

( CON S ( QUOTE OK) (C ONS (QUOTE F) NIL))) NIL)) )) 
(TETq OK" FIT) ) )")))) 
(1 DEFINE (((TESTS (LAMBDA NIL (LEAVE (ENTER) 



(ANC (OR (AKD (ID) 

(OR (AND (OR (AND (PARAMSQ) 



(OR (LOAD (CONS (STAR2) (STARl))) (SETQ OK F))) 

(NOT CK) ^ 

(ANOTRUE (OR (LOAD (CONS (STAR!) NIL)) 
(SETQ OK F)))) OK) (SETQ OK F ) ) ) 



(NOT CK) 

(AND (STRINGl) 



(OR (LOAD (CONS (QUOTE CMPR) (CONS (STARl) NIL))) 
(SETQ OK F) ) ) 



(NOT CK) 

(AND (CMPR (QUOTE (•+))) 



Tor (strTngi) (Setq ok f)) 

(OR (LOAD (CONS (QUOTE CCMPS) (CONS (STARl) NIL))) 



(SETQ OK F) ) ) 
(NOT CK) 



(AND (CMPR (QUOTE (•-))) 
(OR (STRINGl) (SETQ OK F )) 



(OR (LOAD (CONS (QUOTE NCQMP) (CONS (STARl) NIL))) 
(SETQ OK F) ) ) 



(NOT CK) 

(AND (CMPR (QUOTE (♦ ))) 



(OR (AND (OR (AND (ID) 

(OR (LOAD (CONS (QUOTE LOAD) 



(CONS (CONS (QUOTE QUOTE) 

(CONS (STARl) NIL)) NIL))) (SETQ OK F) ) ) 



(NOT CK) 

(AND (STRINGl) 



(OR (LOAD (CONS (QUOTE CMPR2) (CONS (STARl) NI.))) 
(SETQ OK F) ))) OK) (SETQ OK F ) ) ) 



(NOT GK) 

{/NO (CMPR {QUOTE {• ))) 



(OH (EXPR) (SEIQ OK F) ) 
10B_„ ( CM P R ( Q y CJ E . { • _..) ) ) (SET Q OK F ) ) 



(OR (LOAD (CONS (QUOTE SEQ) 

(CONS (CONS (QUOTE FL AGS) NIL) (C ON S (STARl) NIL)))) 
(SETQ OK F) ) ) 

(NCI CK) „ 

(ANU (CMf>R (QUOTE ( * ( ) ) ) 
(CR (EXPR) _(.SblT.tLOK „F)) 



(CR (CMPR (QUOTE (•)))) (SETQ OK F))) 
(NOT CK) 



(AND (CMPR (QUOTE (•. *t *M 'P 'T •¥))) 

(OR (LGAC (QUOTE TRUE)) (SfcJG OK F ) ) J__ 

(hOT CK) 

[AND (CMPR (QUOIE (»,))) 



(OR (STRINGl) (SETQ OK F ) ) 
_^ (CR (LOAC (CO NS (Q UOTE INSERT) (CONS (STAKl) NIL))) 

(SETQ OK fV)) - - . 

(NOT CK) 



(AND (LISIX) 
(OR (LOAC (CONS (QUOTE LQAC) (CONS tSTARl) NIL))) 



(SETQ OK F) ) ) 
(NOT CK) 



(ANO (CMPR (QUOTE (• . • () )) 
(CR (SEC (FLAGS) 



(PROG NIL MQOOOt) (CONC ((OUTPUT) (GO M00005))) 
(RETURN OK) ) ) (SETQ CK F)) 



(CR (LOAD (CONS (QUOTE PROG) 

LCO_N S„ J QUCTE Jl LJ 

(APPENU ISTARl) 
(CCNS (CONS (QUOTE RETURN) 



(CONS (QUOTE T) NIL)) NIL))))) (SETQ OK F)) 
(CR (CMPR (QUOTE (»)))) (SETQ OK F) )) 



(NOT CK) (REPEAT) ) OK)) )) )) ) 
(1 DEFINE (((OUTPUT (LAMBDA NIL (LEAVE (ENTER) 



(ANC (OR (AND (STKINGi) 

[GR ( LQ AC (CONS (QUOTE PRINST) (CdHS (START) NIL))) 

iSETQ OK F) ) ) 
(NOT CK) 



(AND (ID) 
(OR (AND ( OR (A ND (PARAMSQ) 



(OR (LOAD (CCNS (QUOTE PRINO) 
IJ C ONS (CON S (STAR2) (STARD) NIL))) (SETQ OK F)) ) 
(NOT CK) 
(AND TRUE (OR (LOAD (CCNS (QUOTE PRINO) 



(CONS (STARl) NIL))) CSETQ OK F) ) ) ) OK) 
(SETQ OK F)) ) 



(NOT CK) 
(AND (STACK) 



(OR (LOAD (CONS (QUOTE PRINO) (CONS (STARl) NIL))) 
(SETQ OK F)) ) 



(NOT CK) 

(AND (CHPR (QUOTE (•/))) 



(OR (LOAD (CONS (QUOTE TERPRI) NIL)) 
(SETQ OK F) ) )) OK) ))) )) ) 



(1 DEFINE (((REPEAT (LAMBDA NIL (LEAVE (ENTER) 

(AND (CMPR (QUOTE (•$))) / 



(OR (TESTS) (SETQ OK F)) 

(CR (LCAD (CONS (QUOTE PROG) 



(CONS (CUOTE NIL) 
(CCNS (GNI) 



- _- iccf^s {coNsi'guaTE xawd) — — 

(CONS (CONS (STARi) _ „ „ ^ " 

(CONS (CONS (QUOTE GO) ^ ' ' '" " 

_ (CONS (GNl) NIL)) NIL)) N m )_ 

(CONS (CORsIqUOTE KtfURh) " 

(CCNS (QUOTE OK) NIL)) NIL)))))) (SETQ OK F))))))))) 
(1 DEFINE ( ((STACK (LAKB07r""l>ii L ( LEAVF (ENTER) " " ~ ~~ 

(AND (OR (AND^((:MPR^ (QUOTE (*<«!)) ) 

" (OR (LOAX (CONS rgudtr OARry NIL)) (SETQ OK F))) 
(^0T CK) 



(/iNC (CMPB (QUOTE (•♦ '2) )) 
(OR (LOAC (CONS (QUOTE STAR2) NIL)) (SETQ OK F) ) ) 



(NOT Ck) " ~ 

(/!NQ (CMPR (gUGT^ (•♦ '^i))) 

( R ( L A i:~"( C d N S (QUOTES TAR 3 Y J^ijy j^f^-Q^^fyy 

(NOT CK) 



(AND (CMPR (QUOTE ("» ♦ '4))) 
(OR (LOAC (CONS (QUOTE STAR4) NIL)) (SETQ OK F) ) ) 



(NOT CK) 

(^ND (CMPP__(QUOTE («+ ** M))) _ 

" (OK (LOAD (CONSTauOTE CAR") (ConT rOUOTrTTAR ) HlUTY 
(SETQ OK F) ) ) 



(NOT CK) 

(A NO ( C H P P__( Q U C TE ( * + ' * * 2 ) ) ) 

(OB (LOAlC (CONS (QUOTE CACR) (CONS (QUOTE STAR") NillDT 
(SETQ OK F) ) ) 



(NCI CK) 

^J^^ (CHPR (QUCT£_(«+ » » « 3 ) ) ) 

"Tor (LOAC (cons" (quoTe CAboRy ("cdNTs (quote star) n11))) 

(SETQ OK F)))) 0K))))JI)) 

DEFINE (TIP ARAMS C:; TOMBDA ~N IL HEAVE rENlTER ) """ 

(ANC (Cl^PR (QUOTE ( • ) ) ) 



(OR (SEQ (FLAGS) 

(AND (OR (AND (EXPNQ) 



(CR (PROG NIL M00006 (CONO ((AND (CM PR (QUOTE (*,))) 
(OR (EXPNQ) (SETQ CK F))) (GO M00006))) 



(RETURN CK)) (SETQ OK F )T) (NOT OK) TRUE) OK))' 
_ (SETQ OK F)) (OR (CMPR (QUOTE (« ) ) ') (SETQ OK F ) )) )) )))) 

Tl 13EFrNrTr(WBBrE '(LAf<BDA NIL (LEAVE (ENTER) 
(ANC (ERRORX) 



(OR (PROG ML MCUQ07 (COND ((AND (NCDMP (QUOTE (« ))) 

( C R ( C E L E TJ X)^ ( S E TQ K^ JJJ ) J^GO JIOOO 7))) (RE T URN O K) ) _ 
rSETQ m'T)) lOR (CHPR (QU(jt£ P HI (SEfQ OK F) )r) ) ) ) ) ) 

( 1 DEFINE [[ (Ji T Rl N G 1 (LAHBOA NIL (LEAVE (ENTER) 

( TOKEN (MAR Kl 

(AND (CMPR (QUOTE (" ) ) ) 

(CR (PROG NIL M00C08 (CONO ({AND COR (AND (NCOMP {QUOTE ( •« )) 
) (OR (ANY) (SETQ CK F)) ) 



(NOT OK) 

(ANC (CMPR (QUOTE ( •• • •) ) ) 



(OR (INSERT (QUOTE (••))) (SETQ OK F) ) ) ) OK) 
(GO MC0008))) (RETURN OK)) (SETQ OK F) ) 



(CR (CMPR (QUOTE (»«))) (SETQ OK F)) 
(CR (LOAD (CONS (Q UOTE QUOTE) (CONS (STARl) NIL))) 

(1 DEFINE (((IC (LAMBDA NIL (LEAVE (ENTER) 



(TOKEN (MARK) 
(AND (LET) 



(CR (PROG NIL M00009 (COND {{AND (OR (LET) 
(NOT OK) 



(DGT) 
(NOT OK) 



( A N C { C H P K ( QU oTe "( •'-))) 
(OR (INSERT (QUOTfc (**))) (SETQOK F)))) UK) 



(GC MC0009))) (RETURN CK) ) (SETQ OK F)) 
(CR (NAKE/iTUH) (SETQ GK F))))J))))) 



(1 DEFINE (((NIF (LAMBDA NIL (LEAVE (ENTER) 

(TOKEN (N-.ARK) __ __ 

(AND (LGf) " 
(CR (PROG NIL_ MOOOlO (CQNO ( ( DGT ) (GOM QQOIO))) 

(RETURN^ OK) ) (SETQ OK F )) 
(CR (^AK^^UMliER)„JJStT(i JK JJJ ))))))))„ 
(1 DEFINE (((LET (LAMBDA NIL (LEAVE (ENTER) (ISIT LETTER T) )))))) 
(1 DEFINE (((DGT (LAMBDA NIL (LEAVE (ENTER) (ISIT DIGIT T))))))) 



tl DEFINE (((CHARACTER (LAMBDA NIL (LEAVE (ENTER) 

(TUKiN (MARH) - -_ _„ _ 

(AND (CMPR (QUOTE (•IT) 
_ _ (CR (ANY) ( SETQ OK F)) (OR (M AKEC HR) (SETQ OK F)))))))))) 
(1 DEFINE (((ELEMENf (LAMBDA NIL (LEAVE (ENTER) 
(ANC (OR (NLM) 

(NOT CK) ' 
(STRING,!) , 

(NOT CK) ' 
tCHARACTERJ 

( N f C K ) 
___, (I DENT) ; 

(NOT CKI 
(STACK ) '_ „„„__„__^ 

(NOT CK) 

(JLis_r)<^) 

(NOT CK) 
(AND (CMPR (QUGFE CO)) 



(OR (EXFNQ) (SETQ OK F) ) 

(CR (CMPR (QUOTE (•)))) (SETQ OK F)))) OK))))))) 



(1 DEFINE (((ICENT (LAMBDA NIL (LEAVE (ENTER) 
(ANC (IC) 



(OR (AND (CR (AND (PARAMSQ) 

(OR (LCAD (CONS (STAR2) (STARl))) (SETQOK F) ) ) 



(NOT OK) 

(ANC (CMPR (QUOTE (• • ))) 



(CR (E>PNQ) (SETQ OK F )) 

(OR (CMPR (QUOTE (• ))) (SETQ OK F)) 



(OR (AND (CR (AND (CMPR (QUOTE (• •«))) 
(OR (EXPNQ) (SETQ CK F)) 



(OR (LOAD (CONS (QUOTE DEFLIST) 
(CONS (CONS (QUOTE LIST) 



(CONS (CONS (QUOTE LIST) 

(CONS (STAR2) (CONS (STARl) NIL))) NIL)) 



(CONS (CONS (QUOTE QUOTE) 

(CONS (STARl) NIL)) NIL)))) (SETQ DK F) ) ) 



(NOT OK) 

(AND TRUE (CR (LOAD (CONS (QUOTE GET) 



(CONS (STARl) 
(CONS (CONS (QUOTE QUOTE) 



(CONS (STARl) NIL)) NIL)))) (SETQ DK F)))) OK) 
(SETQ OK F)) ) 



(NOT OK) 

(ANC (CMPR (QUOTE ( » •=))) 



(OR (EXPNQ) (SETQ OK F ) ) 
(OR (LCAD (CONS (QUOTE SETQ) 



(CONS (STAR2) (CONS (STAR!) NIL)))) (SETQ UK f ))) 
(NOT OK) 



(ANC (OR (AND (SETQ ID*V ID«V) 

(OR (LOAD (CONS (QUOTE QUOTE) (CONS ( STARl) N IL )) ) 



" <SETQ G^K~FryriNmnaKT~TRut) uktt~ok1 

(SETQ CK H))) )))))) J 

( 1 DEF riSIE " { ( ( L I ST* 5 EQ ( LAMBDA NIL (LEA VE ( ENTER) 

UNC (OR (AND (CKPR (QUOTE (•-•))) _ 

(OK (EXPNG)'"TS£f Q bk" F ) ) "" " " "' ' ; 

(OR (CHPR (QUOTE (* «-))) (SETQ OK F)) 

(OR (AND (OR (AND (CKPH (QUOTE («,))) 

(OR (LIST_*SEQ) (SETQ OK F)jl 

(OR^ (L(JAD~((:dNS (QUO IE" APPEND r 

(CONS (STAR2) (CONS (STARl) NIL)))) (SETQ OK F))) 



(NOT CK) TRUE) OK) (SETQ OK F))) 

(NOT CK) 

'( AND'"( EXPCr 

_(0R (AND (OR (AND (C^'iPR (QUO IE ( SJ^)J 

(OR (LIST«SEQ) (3£XQ £]<" j::)7f " 

_„ <^CT CJ<) {mU TRUE ( OH (LOAD NIL) (SETQ OK F)))) OK) 
(SETQ Ok F) ) 
(OR (LOAD (CONS (QUOTE CONS) 



(CONS (STAR2) (CONS (STARl) NIL)))) 

(SETQ OK F)))| OK))n))) 

Tl DEFINE ((ILISTX (L AH BO A" NIC CLEAVE (imER) 
(ANC (CNPR (QUOTE ( «. » ) )) 



(OR (AND (CR (LIST*SEQ) 

(NOT OKJ tANDJRUE JOR (^LOAQ NIL ) (SETQ OK F )) )) OK) 

rSlTQ OK FJT fOR TCMPrTQUOTtrnp~l) ) (SETQ OK f )))¥)))!) 
J I DEFINE (((EXPQ (LAMBDA NIL (LEAVE (ENTER) 

( WHERE "(FUNCtldN ^y^py^Y)))))Tr 
(1 DEFINE (((EXPNQ (LAHBCA NIL (LEAVE (ENTER) 



(i^HERE (FUNCTION EXPX) F))))))) 

( 1 DEFINE (((LISTEXP (LAMBDA NIL (LEAVE (ENTER) _^ 

~ rANlTTirEMENT)" 

(OR (PRO G NI L HGOOIl (CON D ((AND (OR (AND (CHPR (QUO T E («, «I) 

T ) 

(OR (LOAD (CONS (QUOTE CAR) (CONS (START) NIL))) 

(SETQ OK F) )) 

( NOT OK) 

(AND (CMPR (QUOTE (•• •2)11 

1£!\.J LOAD (CONS (QUOTE CADR)'(CONS (STARl) NIL))) 

(SETQ OK F))) 

(NOT OK) 



(AND (CMPR (QUOTE (• . '3)) ) 
(OR (LOAD (CONS (QUOTE CADDR) (CONS (STARl) NIL))) 



(SETQ OK F) )) 

(NOT_OK)i___ . 

Ta N D (Cm P R (Q UO t E (• . •411 ) 
(OR ( LOAD (C O NS (QUOTE CADDDR) (CONS (STARl) ^si I L ) ) ) 

(SETQ OK F)T) 
(NOT OK) 



(AND (CMPR (QUOTE (« •2))) 
(OR (LOAD (CONS (QUOTE CDR) (CONS (STARl) NIL))) 



(SETQ OK F))) 

[NqT_OK_)_ 

"(AND (CMPR (QUOTE (• »3T) ) 

(OR (LOAD (CONS (QUOTE CDOR) (CONS (STARl) NIL))) 
ITETTUimiT" ~ ^ ^ : 

(NOT OK) 



(AND (CMPR (QUOTE (• '4)) ) , 

(OR ( LOAD (CONS (QUOTE CDDQR) (CONS (STARl) NIL))) 

(SETQ OK F)))) OK) (GO MOOOll))) (RETURN OK)) 
(SETQ OK F))) ) )) ) )) 



(1 DEFINE (((BASIC (LAMBDA NIL (LEAVE (ENTER) 
(ANC (LISTEXP) 



( UR ( AhO ( C R TaNU { CMPR {QUOTE O ♦ ) ) ) 
(OR (B/iSIC) (SETQ OK F ) ) 



(GR (LCAD (CUNS (QUOTE CCNS) 
— -„ _ (CONS (STAR2) (CONS (STAR!) NIL)) ) ) (SETQ OK f ) ) ) 
(NOT OK) TRUE) GK) "(SET Q CK F )))))'))) ) 

U_ DEFINE (((KELAFIOiM aAHSOA NIL (LEAVE (ENTER) . 

(ANC (BASIC) 

(OR (AhC (CR (ANU (CMPR (QUCTE_ (_«f-Ul — _- 

(OR (B)flSIC j (SETQ OK F ) ) 
_____(0R (LCAp_JCuNJi(QUOJE„ EQUAL) 



(C0NS(STAR2) (CONS (START) NIL)))) (SETQ UK F))) 
(NOT OK) 



(ANC (CNPR (QUOTE ( •- • =) )) 

_(0R (BASIC) JSEJQ OK F )J 

(OR (LCAU (CUNS (QUOTE NOT) 
(CONS (CONS (QUOTE EQUAL) 



(CONS (STAR2) (CONS (STARl) NIL))) NIL))) 
(SETQ OK F ) ) ) (NOT OK) TRUE) OK) (S ETQ OK F) ))))))) ) 
( r OEFiNE n (NEGATION (LAMBDA NlC aEAVE (ENTErT- 
(ANC (OR (AND (CMPR (QUOTE (»-))) 



(OR (REL/JTION) (SETQ OK F)) 

(OR (LOAD (CONS (QUOTE NOT ) (CONS (STARl) NIL))) 



(SETQ OK F))) (NOT OK) (RELATION)) OK))))))) 
(1 DEFINE (((FACTOR (LAMBDA NIL (LEAVE (ENTER) 



(ANC (NEGATION) 
(OR (AND (C« (ANU (CMPR (QUOTE ( «. »^ ».))) 



(OR (FACTOR) (SETQ OK F) ) 
(OR (LCAD (CONS (QUOTE AND) 



(CONS (STAR2) (CONS (STARl) NIL)))) (SETQ OK i))) 
(NOT OK) TRUE) OK) (SET(* OK F))))))))) 



(1 DEFINE (((tXPX (LAMBDA NIL (LEAVE (ENTER) 
(ANC (FACTOR) 



(OR (AND (CR (AND (CMPR (QUOfE (•. 'V ".))) 
(OR (EXPX) (SETQ OK F) ) 



(OR (LCAD (CONS (QUOTE OR) 

(CONS (STAR2) (CONS (STARl) NIL)))) (SETQ OK F))) 



(NOT OK) TKUE) OK) (SETQ OK F))))))))) 
(1 DEFINE (((LCOPST (LAMBDA NIL (LEAVE (ENTE^) 



(ANC (CMPR (QUOTE (». "L '0 '0 •?))) 
(OR (CMPR (QUOTE CU 'N «T 'I 'L))) (SETQ OK F)) 



(OR (GENl) (SETQ OK F ) ) 
(OR (RESTORE (SAVER) 



(AND (CR (BACKUP (EXPNQ)) 
(AND^ (ERRORX) 



(OR (PROG NIL M00012 (CGNO ((AND (NCQMP (QUOTE («. 'B 

«G «I *N ))) (OH (UELETEX ) (SETQ OK F) ) ) 

(60MQC012))) (RETURN OK)) (SETQ OK F)))) OK)) 

(SETQ CK_F_)) 

lOR (C>"PR (QUOTE (»• «B '£ »G H » N) ) ) (S £TQ OK F ) ) 
(OR (LOAD (CONS (QUOTE COND) 



(CONS (CONS (STAR!) 

(CONS (C ONS (QUOTE GO) (CONS (6N2) NIL)) NIL)) NIL))) 

(SETQ OK Fl) 
(OR (PROG ML M00013 (COND ((RESTORE (SAVER) 



(AND (OR (BACKUP (ST) ) 

(ANC (NCOMP (QUOTE (•. 'E 'N 'D))) 



(OR (GOBBLE) (SETQ OK F)))) OK)) (GO MOOO 13 ) ) ) 
(RETURN CK)) (SETQ OK F) ) / 



(OR (CMPR (QUOTE («. 'E 'N '0))) (SETQ OK F)) 

(OR (LCAD (CONS (QUOTE GO) (CONS (GNi) NIL))) (SETQ DK F) ) 



(OR (GEN2) (SETQ OK F) )))) )))) 
(1 DEFINE (((IFST (LAMBDA NIL (LEAVE (ENTER) 



(GR (RESTORe (S/iVER) 

(AND (UR (BACKUP "(fcXPNUn 
(AND (ERRORX) 



( CR ( PRaG'"Nrr"M0'0014 r ( ( ANtriNCOMP ( QUU I E ("*7 * B '^T 

•G •! 'N))) (OR (UELtTEX) (SETQOK F))) 
(GO MGiaORliT (RE TURN OK) ) (SETQ OK f)))) Q^fy 

(SEIQ OK F)) 

(CR (CNPR TQUQir ( *\ i'i^i^ iji i| Tfi))) (SEfQOK F)) 
(OR (AND (CR (CMPR (QUOTE (». •! "H 'E 'N))) 



(NOT OK) TRUE) GK) (SETQ CK F)) 

(_0R (LCAO (CON^ (QUOTE CQNOJ 

"(CONS rCONS (CONS rQUdtl: NOT) (CONS (STARI) NIL)) 

(CONS (CONS (QUOTE GO) (C(JNS (GNl) NIL)) NIL)) j'vIL))) 

("■SETU GK f)y—— —— -...-.^^.....-...-.-.-.^.-=-..-,. .,..__„„^ _„ .., ___.^ _„ 

(OR (PROG ML HOOP 15 (CQND ((S T) (GO HQ0013))) (RtTUKN OK)^ 
("5 E T Q OK p ) j 

( OR (AND (CR (AMU (CHPR (QCOTE («, «£ »L »S «£) )) 

"TOR TLCAO TCtJNS (QU0TF~GG) (CONSTGNZ) NIL))) 
(SEIQ OK F)) 
(0R'"(G€Nir'(SETQ'OKTl ) ~ 

(OR (PROG NIL M00016 ( CONO ((RESTORE (SAVER) 



(AND (OR (BACKUP (ST)) 

_ ___t AND J NC OM P (_QU !_&__( • . 'E «N ' 0) )) 

(OR (GGBFre) TStTQOK F ) ) I ) OK )T ( GO H000l6 ) D' 

(8£TIRNJK)) (SETQ OK PI) ^ 

Tor {CKPR~ rQUOTE {•• *t *H •U)n~(SETQ GK FH 
(OR (GEN2) (SETQ OK F) )) 



(NOT OK) 

(AND (CNPR (CUGTE (•• 't 'N •Q))) 
-_ (DR llS£NTT~(yET(5nDK~T)TrrT}KTnTFT^lT^ 

(1 DEFINE (((PRINTST (LAMBDA NIL (LEAVE (ENTER) 



(ANC (CKPR (QUOTE (»• 'P 'R »I *H '!))) 
(GR (PROG ML M00017 (COND ((OUTPUT) (GO M00017))) 



(RETURN CK) ) (SETQ OK F) ) 

^^OR ^ C K PR_J Q UOTE (« ) ) ) ( SETQ OK F))) )))) )) 

"( 1 UeTrNE nTST'T LAMBDA NIL (LEAVE (ENTER) 

(ANC (OR (AND (EXPNQ) (OR (CHPR (QUOTE (• ))) (SETQ OK F))) 



(NCT'CKJ 
JJ. 00 P S T ) (NOT GK) (IFST) (N OT OK) (PRINTST)) GK) ) ) ) ) ) ) 
"Tl DEFTNE (({TcTEQ (LAHBDA nil (LEAVE (ENTER) 
(ANC iCHPH (QUOTE ( • ) ) ) 



TOR IsFQ (FLAGS) 

[mo (AND (OR ( AND (FORMAL) _______ ____ 

TGR TPROin^rL MO 00 18 ("CO NO ( ( ANCnCMPR ( QUOTE C 9 fT) 

(GR (FORMAL) (SETQ GK F))) (G O H0Q018))) 

(RETURN OK) )~ (SETQ CK F) ) ) (NOT OK) TRUE) OK) 
„ (GR ( CMPR (QUOTE ( « )) ) (SE T Q OK F )) ) ) (SETQ OK F))))))))) 

Tl (jEFrNrTnTCRMAL (LAMBDA Nl L (1£AVE~TENTT¥1 '~~ 

(ANC (OR (ID) 



(NOT CK) 

(ANC (CMPR (QUCTE (•. 'L '0 »C))) 



("OR " ( ID) (SETQ Ok F ) ) ) ) CK ) ) )1 ) ) ) 
(1 DEFINE (((PROCECURE (LAMBDA NIL (LEAVE (ENTER) 

"^ rAKXrTGMPTniQUOTE (•• «"P *R *0 »C »e ♦D «U »R *E)))" 

(OR (IC) (SETQ GK F)) 



(GR ( iCSEQ) (SETg OK F)) 

(GR (CMPR (QUOTE (» ))) (SETQ GK F)) 



(OR (AND (CR (AND (CMPR (QUCTE (•. 'L '0 'C 'A «L ) ) ) 
(OR (ICSEQ) (SETQ OK F ) ) 



(UR (CMPK (QUOTE (• ))) (SETQ CK F))) 
thCl GK) (AND TRUE (OK (LGAO NIL) (SETQ GK F)))) GK ) 



{ S ET Q ok ¥ ) ) 
(OR (SEG (FLAGS) 



(AND (PRCG NIL HC0019 (CONO ((RESTORE (SAVER) 

(ANC (UR J BACKUP (ST)J__ 

(ANO'(l\CaHP ( quote' (•. «'r 'E 'f *'U *ii *Hi)) 
(OR (GOBBLE) (SETQ OK E)))) OK)) (GO MU0019))) 



(RETURN OK) ) 
(OR (CMFR (QUOTE (♦. 'R •£ «T 'U «R «N)) ) (SETQ OK F)) 
(OR Um (OR (AND (CMPR (QUQtI (• ))) 
(OR (EXPNQ) (SETQ OK F) ) 



(OR (LOAD (CONS (QUOTE RETURN) (CONS (STAR!) NIL))) 
(SETQ OK F)) (OR ( CMPR (QUOTE (• ))) (SETQ OK P))) 



(NOT OK) TRUE) OK) (SETQ OK F)) 
(OR (CMPR (QUOTE (« ))) (SETQ OK F)))) (SETQ OK F)) 
■(OR (LEAD (C(jNS (QUOTE DEF ir\E) 

(CONS (CONS (CONS (CONS (STAR4) 



(CONS (CONS (QUOTE LAHBLA) 

_ KONS (STAR3) 

(CONS" rCCNS (QUOTE PR(3b)~ 
(CONS (STAR2) 



(STAR!))) NiL))) NIL)) NIL) NIL) NIL))) 
(SETQ OK F)) (OR (COMPILE) (SETQ OK F))) )))))) 



(1 DEFTNE (TTLISP'icTviSlON (LAMBDA NIL (LEAVE (ENTER) 
(ANC (CKPR (QUOTE (». 'L 'I 'S 'P 'X))) 



OR (PROG ML HC0020 (COND ((PROCEDURE) (GO M00020))) 
(RETURN CK)) (SETQ OK F) ) 



(OR (CNPR (QUOTE («. 'F *l »N 'I »S *H))) (SETQ OK F))))))))) 
(1 DEFINE ( ((FLUIO«DECLARATION (LAMBDA NIL (LEAVE (ENTER) 



(ANC (CKPR (QUOTE (». '0 'E 'C 'L »A *R •£))) 
(OR (Cl^PR (QUOTE (• ))) (SETQ OK F)) 



(OH (FLUIOl) (SETQ OK F) ) 

(OR (PROG ML HaOQ21 (CON D ((AN D (CMPR (QU OTE («,)) ) 

(CR (FLUiOi) (SETQ OK F))) (GO M0002 1))) (RETURN OK)) 

(SETQ OK F)) _„_____, ., , 

(OR (CNPR (QUOTE (• ))) (SETQ CK F)) " 

(OR (CNPR (QUOTE (• ))) (SETQ CK F))))))))) 



(1 DEFINE (((FLUIDl (LAMBDA NIL (LEAVE (ENTER) 
(ANC (ID) 



(OR (LOAD (CONS (QUOTE CSET) 

(CONS (CONS (STARl) (CONS (QUOTE NIL) NIL)) NIL))) 



(SETQ OK F)) (OR (COMPILE) (SETQ OK F))) )))))) 
(1 DEFINE (((PROGR/SM (LAMBDA NIL (LEAVE (ENTER) 



(ANC (PROG ML MC0022 (COND ((AND (OR (SYNTAX) 
(NOT CK) 



(LISP*DIVISION) (NOT CK) (FLUIO»DECL ARAT I ON) ) OK). 

(GO MQ0C22))) (RETURN OK)) 

(OR (CMPR (QUOTE (•• 'S 'T '0 •?))) (SETQ OK F))))))))) 



ECF CARD ALL PROGRAM COMPATIBLE 
ENDINFUT 



0000100-. DECLARE CSTAR# GEN# SKIP-BLANKS* LINE* 

0000200- INPUT, COLUMN* BACK* CHR* FLAGX* LETTER>. DIGIT* . 

0000300- ODGT* ID-V* COUNT* MAXIMUM* OK* TRUE3 I 

00004^0-. LISPX \ 

0000500-.PROCEDURE INITIALIZE CA* B3l 

f5000600-.IF A - 0U6TCCTTY1 " 

000 700- ' .BEGIN 

0000800- .THEN R0SCNIL3I * 

0000900- .ELSE OPENCA* QUOTECDISC]* ,QU0TECPERM3 31 

0001000- RDSCAIJ 

0001100- .END 

0001200-.iF B a QU0TECTTY3 

001300- ■ .BEGIN 

0001400- .THEN WRSCNIL3J 

0001500- .ELSE .IF B = QUOTECCORE] 

0001600- .BEGIN 

0001700- .THEN OPENC QUOTEC SDCSDC3#-QU0TECDISC1 'll^ 

0001800- WRSC0U0TECSDCSDC3 31 

0001900- .ELSE OPENC 8# QU0TECDISC3 3l WRSCB3I 

002000- .END 

002100- •END • 

0002200-STAR :* NILJ GEN :« NILJ SKIP-BLANKS sa Tr 

0002300-COLUMN. S« 01 LINE s= READLNC 3^ INPyif- ,4 ».4-If<El CHR :» INPUT'll 

0002400-BACK l« NILJ COUNT 1= li MAXIMUM \n {% OK «« TJ - 

0002500-FLAGX Ja NILl LETTER J» 2i DIGIT 8a 12^ ODGT l^ 8J ^ 

002600-GENCHU3J TRUE 5= Ti ' ' 

0002700-.RETURNJ 

0002800-. PROCEDURE COMPLETECZ* A3J .L0CALCX3i 

0002900-.IF -A 

0003000- " .BEGIN 

003100- .THEN ERR0RXC3 J 

0003300- ' .END .. •■..,/!:'/...; 

0003400-X Ja" RDSCNIL3I 

0003500-.IF X -= QU0TECTTY3 

0eQ§6i3G-^ ;MGiW /^■^ 

003700- .THEN SHUTCX3 % 

0033 00- .END 

0003900-X :a WRSCNIL3; 

004000-.IF X a QU0TECSDCSDC3 .A. A 

0004100-', .BEGIN 

004200- .THEN POSITIONCX* QUOTECWEOF3 3 J 

0004300- POSITIONCX* OUOTEC REWI ND3 3J 

0004400- ' .LOOP UNTIL L0ADEXPCX3 a QUOTECEOFS 

0004500- .BEGIN . i 

00046 00- .END 

004700- SHUTCX* QUOTEC DELETE3 3 J 

004800- .ELSE .IF X -a QU0TEETTY3 

0049 00- .BEGIN 

0005000- .THEN POSITIONCX* QUOTEC WE0F3 3 J , 

0005100- SHUTCX3^ - 

0005200- oEND 

0005300- .END ' 

0005400-«RETURNCA3l 



0005503-. PROCEDURE READLNCIl - .L0CALCX31 ^ ''" r" ■" " ~ 

0005600-X :a READCHC3J ([A \ i *R.^ ) 

0005700-. IF NULLCXi f [ i^ ' & ^^ / 

0005800- ■ .BEGIN ^ • 

0005900- .THEN RETURNCNIL3J 

0006000- .ELSE RETURNCX*READLNC3]j 

006100- .END 

0006200-. RETURN! ;. 

0006300-.PROCEDURE PRINTLNCUJj .L0CALCX3I • 

0006400-X :s PRINTLNICU]! 

0006500-. LOOP UNTIL NULLCX3 . • 

006600-" .BEGIN 

0006700- PRINTCHCX.13i X :« X:2i' / > . ' '' 

0006800- .END ' '.■ 

0006900-TERPRIC ]; 

0007000-. RETURN; ' I / 

0007100-. PROCEDURE NXTCHRC3J 

0007200-. IF NULLCINPUT:23 

0007300- ' .BEGIN 

^miAm- .THEN COLUMN :« COUNTi LINE |a, READLNC3i ' 

0007500- RPLACDCINPUT* LINE3I 

007600- ♦END ' 

0007700. INPUT la INPUTtSi CHR !« INPUT. 11 

0007800-COUNT := ADDlCCOUNTJr MAXIMUM J« MAXCCOUNT, MAXIMUM3I 

0007900-. RETURNI 

0008000- .PROCEDURE L0ADCX3I 

0008100-STAR ja X ♦ STAR I 

008200-.RETURNCT3 J 

0008300- .PROCEDURE COMPARECS, N3r *LOCALCU* V> W, SIGNAL3I 

p008400-.IF SKIP-BLANKS * 

0008500- ' •BEGIN 

008600- •THEN 

0038700- VLOOP UNTIL CHR -a 

0008800- .BEGIN 

0008900- NXTCHRC3; 

, 009000- .END 

0009100- .END ■ 

0009200-U J=» Sj V 8a INPUTI W j= COUNTI 

0009300-. LOOP UNTIL <NULL£U3 .V. U.*l -= CHR) 

0009400-' .BEGIN ■...J^- ' 

0009500- U |a Uj2i .W.NXTCHRC3I 

009 600- .END 

0009700-SIGNAL Sa NULLCU3J 

009800-. IF N a 3 

0009900- ■ .BEGIN 

0010000- .THEN SIGNAL :=« -SIGNAL I INPUT sa VJ 

0010100- CHR sa INPUT. II COUNT Ja Wl • 

0010200- .ELSE 

0010300- ;iF SIGNAL 

0010400- '• .BEGIN 

0010500- .THEN 

0010600- .IF N a 2 

0010700- .BEGIN 

. 010800- .THEN STAR ta 

0010900- APPENDCSTAR.If S3 ♦ STARt2 I 

0011000- .END . -. - 

^11100- .ELSE* INPUT t« VI CHR !• INPUT. II COUNT l« Wl 

i^ 11 200- VEND .... 

3011300- .END ■ 

3 31 1 430-. RETURN C SIGNALS I 



MLm?/ 



0(3 11500- .PROCEDURE CMPR2CX3I 

001 1600-«IF CMPRCX3 

001 1700- ■ .BEGIN ^ 

0011800- .THEN STAR t» C0MPRESSCX3 * 'taR t RETURNCT3J 

001 1900- .END 

0012000-.RETURNCF3I /^ 

0012100-. PROCEDURE CMPRCS31 

0012200-.RETURNCCOMPARECS, 13]; 

0013300-. PROCEDURE C0MPSCS3I 

012400-.RETURNCCOMPARECS, 23 3; 
0012500-. PROCEDURE NC0MPCS3; 
001 2600-. RETURNCCOMPARECS, 333; 
0012700-. PROCEDURE ERR0RXC3; .L0CALCX3; 
0012800-X :=» WRSCNIL3; 

0012900-PRINTLNCLINE3; BLANKSC SUBIC DIFFER CMAXIMUM> COLUMN333 ; 

0013000-PRINTCHC#t3; TERPRIC3; 

0013100-WRSCX]; OK j« Tl 

0013200-.RETURNCT3; 

0013300-;PROCEOURE MARKC3I 

00 13400-'. LOOP UNTIL CHR -« # 

0013700- .END 

0013800-SKIP-8LANKS ja F) 

0013900-STAR != NIL * STAR I 

0014000-. RETURN; 

I0014100-. PROCEDURE TOKENCW, X3; 
r0014200-SKIP-BLANKS ga T I 

001 4300-. IF -X , ' 

0014400- ".BEGIN 

0014500- .THEN STAR ?« STARJ2 ; 

0014600- .END '< 

0014700-.RETURNCX3; 

0014800-. PROCEDURE INSERTCS3; x * 

001 4900- STAR := APPENDCSTAR.U S3 * STAR: 2 ; 

0015000-. RETURNCT3; 

0015100-. PROCEDURE STAR1C3; .L0CALCX3; 

00i5200-X j= STAR.l; STAR JaSTARj2; 

0015300-.RETURNCXJ; ;>- 

001 5400-. PROCEDURE STAR2C 3;^ .L0CALCX3; 
0015500-X:=: STAR. 2; STAR:» STAR.l * STAR: 3; 
0015600-.RETURNCX3; 

001 5700-. PROCEDURE STAR3C3; .L0CALCX3; 

0015800-X := STAR. 3; STAR:* STAR.l ♦ STAR. 2 * STAR: 41 

0015900-.RETURNCXI; .... 

0016000-.PROCEDURE STAR4C3; .L0CALCX3I 

0016100-X «=. STAR. 4; STAR t« STAR.l ♦ STAR. 2 ♦ STAR. 3 * STAR:4:2; 

0016200-.RETURNCX3; 

001 6300-. PROCEDURE FLAGSC3; 

0016400-FLAGX :» STAR ♦ FLAGXl STAR := NIL! 

0016500-.RETURNJ ' \ . ' ' < 

166 00-. PROCEDURE SEQ£W# X3l 

016 700-.IF X 

C>0l6f*00* ttiKRtN . , - 

1^016900- .THEN STAR t« REVERSEC STAR3 ♦ FLAOX* I j 

^0169 10- '.ELSE STAR 8a FLA6X. li 

0017000- .END 

0017100-FLA6X :« FLAGX«2 i 

001 7200'-. RETURNCX3I 



AILI^E/ 



■^ 01 To 0?- .'PROCEDURE GNU3J " ' 

00\7^00-VIP NULLCGEN.ia 

0017500- ' •BEGIN ' 

0017600-.' .THEN GEN |a GENSYMC3 * 6EN:2 i 

0017700- VEND 

001 7800-. RETURN C GEN. n J 
00i7900-.PROCEDURE GN2C31 
0018000-.IF NULLCGEN.23 
0018100- ■ .BEGIN ■ 

0018200- .THEN GEN ?« GEN. 1 ♦ GENSYM C3 * GENj3 I 

0018300- .END ■ 

001 8400-. RETURN C GEN. 23 J 
0018500-. PROCEDURE GENIC3* 
. 001 8600- STAR :=» GN1C3 * STARj 
0018700-.RETURNCT31 
0018800-. PROCEDURE GEN2C3I 
0018900-STAR :« GN2C3 ♦ STARl 
0019000-.RETURNCT3I 
0019100-;PROCEDURE ANYC3I 

00l9a00-STAR js APPENDCSTARtU tC(CHR)33 * STAR;8l 
0019300-NXTCHRt3l ... 

0019400-.RETURNCT3 j 

00i9500-;pROCEDURE DELETEXC3I ' 

0019600-NXTCHRC3I 
0019700-.RETURNCT3I 
0019800- .PROCEDURE MAKEATOMC 31 

10019900-STAR J=* C0MPRESSCSTAR.i3 ♦ STARt2 I • 

•0 020000-. RETURN tT3 J 

0020100-. PROCEDURE MAKENUMBERt 31 •LOCALCS* N3I 
0020200-3:=* STAR.IJ N !« 0| 
0020300-. LOOP UNTIL NULLCS3 
0020400-' .BEGIN 

0020500- N ja PLUSCTIMESCN* 103 * CHR20CTC S« 1 3 3 i S i» St2S 

0020600- .END •- *■ - 

0020700-STAR js N a, STARj2l ' 

020800-. RETURNCT] I 

0020900-.PROCEDURE C0MPILEC3I V 

0021000-PRINTC 1 * STAR. 131 STAR -J a STARs2; 
021 100-.RETURNCT3; - ^---^ -- ' 

0021200-VPROCEDURE ISITCX, Y3l .L0CALCSIGNAL3i 
02 1300- SIGNAL :- NOTC ZEROPCLOGANDCX* C0NVERTCCHR3 3 3 3 J 
021400-. IF SIGNAL 
0021500- ' .BEGIN 

021600- VTHEN .IF Y 

0021700- .BEGIN 

0021800- .THEN STAR t« APPEND C STAR. I > .C<CHR)33 ♦ STARs2 J 

021900- VEND * . . 

0022000- NXTCHRC3I 

.0022100- .END 

0022200-. RETURNC SI 6NAL3I 
0022300-. PROCEDURE MAKECHRC3; 
0022400-STAR :« STAR. 1.1 ♦ STARj2I 

0022500-. RETURNCT3I " 

0022600-.PROCEDURE WHEREC X, YlS .LOCALCA, B3J 
(0022700-A := ID-Vl ID-V :« Y> B :« XC3l lO-V ji Aj 
0022800-. RETURNCB3I 



MLi^y 



002290PJ-.PIROCEDURE CHECKCA> B3l .L0CALCX3I 

00230(50-OPENCA, QUOTECDISC]> 0U0TECPERM3 3 ; 

0023100-OPENC8, OUQTECDISCJ> QUOTKCPEJ^J 3 \ 

0233003'^^'^''. BEGIN ^^ '" '"«>ti2CKl)3C A3, UI£AD C 3 3 > • OUOTtttlCOn 

0023400- .IF X -= PR0G2 C RDSC93> READC3 3 

0023500- \ • .BEGIN 

023600- .'THEN PRINTCOUOTECBAD3 3 1 

023700- ^ VEND 

0023800- .IF XV2 ^ QU0TECDEFINE3 

023900- ■' .BEGIN 

0024000- .THEN PRINT CX. 3.1. 1.1 3 I 

0241 00-' .End ' • .- . 

0024200- .END " 

0024300-RDSCNIL3I SHUTCA31 SHUTC83I 

024400-. RETURN! 

0024500-.PROCEOURE PRINTLN1CU3* .L0CALCX3; 

024600-. IF U = NIL ' 

0024700- ■ .BEGIN 

0024800- .THEN RETURNCNIL3I 

024900- .END 

0025000-X ta PRINTLNlCUt23 I 

0025100-.IF X = NIL .A. U.l « # 

0025^00:, .BEGIN ' ' ' 

mmMt'i .THEN RETURNINILJI 

025400- VEND 

0025500-. RETURNCU.l * X3 I 
-0025600-.'PROCEDURE''SAVERC3l 

0025700-8ACK :« . t (INPUT), <STAR)i (FLAGX)# (COUNT) J ♦ bACKI 
0025800-. RETURN! • ■ , - " - 

025900-. 'PROCEDURE RESTORECW, X3l 
0026000-8ACK J= BACK:2 % 
026100-'.RETURNCX3l 

0026200-.PROCEOURE BACKUPCX3I .L0CALCA31 
0026300-A :a X .A. OK! ' 

026400-. IF -OK ■ ' 
0026500-' '.BEGIN 

0026600- .THEN INPUT !« BACK. 1 . 1 j ' STAR l« BACK. 1.2 ! 

0026700- FLAGX 8= BACK. 1.3! COUNT s« BACK. 1.4! " " 

0026800- CHR := INPUT. 1! ' OK := T! '* ' 

026900- .END 

027000-. RETURNC A3! 

0027100-. PROCEDURE ENTERC3! 

0027200-GEN := NIL+NIL+GEN! 

0027300-. RETURN! 

0027400-. PROCEDURE LEAVECX, Y3! 

0027500-GEN sa GEN8 3! . . 

13 0276 00-. RETURNC Y3! 

0027700-.PROCEDURE PRINSTCX3! .L0CALCZ3I 

0027800-Z ss X! ' 

0027900-. LOOP UNTIL Z = NIL 

0028000-- .BEGIN 

0023100- PRINTCHCZ.nj Z S= Z52! 

028200- .END " 

028 300-. RE TURN! 

028400-';fINISH 

028 500-. STOP' 

READY- 



(SESAME 
LAP( 

( (CHR 

(LDA 

" (BSX 

n ) 

lAP( 
_ {(CON 
(SUB 

(JUC 

KCNVE 



2GCT SUBRl) (BAX(4. 2)1) (0(E CHR2GCI)1) 
^A 3?0g) (SUb_ig4 10Q370w)(LDH $A) 
«MKNC 2 5) (BUG "C 4) ) 



VERT _SUER IJ (BAXj^ii___2)i) (0(£ 
IQ^ 1003lOQJ(LDA KONVEKT 

JO_A± 

RT ( 1 LQ ) ( 1 iQTi 1 IQ ) ( 1 IQU lUj J' 
( 5Q) ( 5Q) (4iQ)( IQ) ( IQ) 



CpNVERJ )_LL_.: 

17Q)(BSX *MKNG 2 5) 



IG) ( 
3w) ( 
IQ) ( 

3Q) ( 



(21Q) ( 
( 3Q)( 



3Q)( 3Q)( 
3Q) (4,lCi)( 
3Q)( 3Q)( 
3Q ) (41Q)( 
1Q)( 3Q)( 
3Q) (41Q) ( 



3Q) ( 

IQ) ( 

3Q) ( 

XQ)JL 

3Q") { 
IQ) ( 



(liQ)( IIQ) (ilQ) 

3Q) ( 3Q)( 3Q) ( 3Q) 
ig) (4ig)(4iQ) (4iQ)' 
3U) ( 3g)( 3Q) i 3Q) 
IQ) {41Q){41Q) (41Q) 



3Q) ( 3Q)( 3Q) ( 3Q) 
IQ) (41Q)(41Q)(41Q) 



)( )) 

D EFIN E ( ( 

( «P 

( *P 

TefineTI 

DEFIN E ( ( 
(MA 
(OP 
( S£ 
A l 
A"2 
(RE 



(GENCH1(LAKBDA(X (PROGQ 

L A N T" (Ti: (^C R ZO IQ 1 3 7 f/744Q) 41242g) 
LAN! C A1251Q) ) ) ) ) ) 



(UtMPdAMBCAd) (MAPCAR L (FUNCTION EVALl)))))) 

G rclDi^reCATJ^ ) ( PROG ( W Y ) ~~- 

EN X (QUOTE DISC) (QUOTE PERM) ) 

fQ"i^ "(RCS xT) 



< ^^^^-£U I^CTl EjQj LOAOEXP 
Trds W)(SHUT x") 
TURN Y )))))) ) 



X)(QUOT£ EOF) ) ) ( GO Al) )) 




£GF CARD ALL PROGRAM COMPATIBLE 



_ikc^ 



^*\^. 





\.C 



0lLyt^<>C^ C^y^ 



( 1 
( 1 
( 1 
( 1 
( 1 
( 1 
( 1 
{ 1 
( 1 
( 1 
( 1 
( i 
71 
( 1 
( 1 
{ 1 



CSET 

CSET 

CSET 

CSET 

CSEf 

CSET 

CSET 

CSET 

CSET 

CSET 

CSET 

CSET 

CSET 

CSET 

CSET 

CSET 



{ 1 CSET 



(STAR ML) ) 

(GEN NIL) ) 

(SKIP«eLAIMK'S NIL) )' 

(LINl ML) ) 

(INPUf NIL )T 

(CCLUMN NIL)) 

(BACH ML) ) 

(CHR NIL) ) 

(FLAGX NIlV) 

(LETTER NIL ) J 

(DIGIT NIL ) ) ■ 

(GCGT ML) ) 

( iC*V ML) )" 

(CCUNT NIL)) 

(MAXIMLM NIL))' 

(OK ML)) 

a RUE 




fi^ 



A^ 






lu^a} 



(LAMBDA (A B) 



((NOT (EQUAL A (tiUOTE TTY))) (GO MOOOOi))) 



ML) ) 
L1-_DEFINE ( ((INiriALI^El 
(PROG Nir TCCNO 

(«DS NIL) ^ __________________^ 

"(GO MC0C02) 

MCOCOl (OPEN A (QU OTE DISC) (QUOTE P£RH)) 
"(KD'S J) ■ ' ^ 

M00C02 (CON£ 
"(WRS^'ML)""' 

(GO MG0C04) 



((NO) (EQUAL B (QUOTE TTY))) (GOM00003))) 



M0CC03 (CONC 
(OPEN (CUOTE 
1¥rS (QLCTE SOCSDC) ) 
(GG N:G0C06) 



( (NCI (EQUAL B (QUOTE 
SDCSOC) (QUOTE DISC)) 



CORE))) (GO HOOOOS))) 



(OPEN B (QUOTE DISC) ) 



MCCCC5 

( V^ R S_ 6 ) .___ 

M GO C 06 > C C C 4 ( S E I Q 
J S EXG„ G E__N N a r 

(SETQ 



STAR NIL) 



(SETQ 

(SETQ 

(SETQ 

(SETQ 

(SETQ 

(SETQ 

(SETQ 

(SETQ' 

(SETQ 

(SEflQ 

(SETQ 



SKIP»ELANKS T) 

C C.L GMjv _Q) 

LINE (READLN)) 
INPUT LI NE) 
CHR (CAR INPUT)) 
BACK ML) 



CCUNT 1) 
HAX^im^M^U^ 

~ t ) 



NIL) 



OK 

FLAGX 

letter" 2) 
DIGIT 12) 



(SETQ ODGT 8) (GEHCHl) (SETQ TRUE T) )))))) 



1 DEFINE ( ( (COMPLETE 
(PROG (X) 



(LAMBDA (Z A) 



(COND ((NOT 

(ERRORXJ 

MGGCOT'(SeT(; 
(CGN_p ( (NOT 
TSHlf "Xf 
MCOCOJJSEJjQ 
(COND "((NOT 
(POSITION X 



INOT A)) (GO~MOOOO/)) ) 



X (RDS NIL)) 

(NOT (EQUAL X 



(QUOTE TTY)))) (GO MOOOOB))) 



X (V^RS NIL)) 
(mb (EQUAL X 
(QUOTE I^EOF)) 



(QUOTE SDCSDO) A)) (GO H00009))) 



(POSITION X 
MG0C10_ (CON_C_ 

(Gd'MCcc^ic) 

MCCCli (SHUT 



(QUOTE REWIND)) 
( (EQUAL (LOAOEXP X) 



(QUOTE EOF)) (GO HOOOU))) 



X (QUOTE DELETE)) 



(GO M00C12) 
MGOCOS (COND 



((NOT (NOT (EQUAL X (QUOTE TTY)))) (GO M00Q13))) 



( p SIT rc N X' -{ gtrCTE~wEQ F) ) 

(SHIT X) M0C013 MaO012 tR^T URN_A) ) JJ M ) • 

(1 'DEFINE (( (READLN ( LAHbDA N I L iP ROG U) 

(SeiQ X (RE/JDCH))i_ _____ „ _ ___ 

" lCCND~ ( (NOT (NULL X ) )" TGO M00014) ) ) 

(RETURN NIL ) _ 

(GO KOOClti) MOOO~RTKETUM"lCt]JSIS X (Rt ADLNl) ) MOOJ if> ) ) ) ) ) ) 

(1 DEFINE (((PBINTLN (LAMBDA (U) 

(PRCJC (X) ^ ' 

(SE7Q X (PRINTLNl U) ) 



MCGC16 (CONC .((NULL X) (GU HQ00i7>)) 
(PRINTCh (CAR X) ) 



(SETQ X (CDR X)) (GOMOOOlb) MQOOi? ( TERPR i) ) ) ) ) ) ) 
^J^ DEFINE ( ((NXTCHR (LAKtiOA NIL (PRQG NIL (COND ( (NOI' (NULL (CDR 

INPUT))) ((^(jHocioraTn " 

(SETQ COLUMN COUNT) 



(SETQ LINE (READLN) ) 

(RPLACp INPUXLINEJ^ 

MCClCie (SETG INPUT TCDR INPUT)) 

(SETC CHR (CAR INPUT)) 

(SETQ CCUNT" (AODi COUNTl ) 

(SETG MAXIMUM (MAX COUNT MAXIMUM)))))))) 



(I DEFINE (((LCAD (LAMBDA ( X") 

(PR(jG NIL (SETQ ST AR (C ONS X STAR)) (Rt TURN T )))))) i 
Ti DtFlNE mcCMPABE (LAMBDA (S H) 
|PROC (U V W SIGNAL) 

TCdNDTTNOt SKTP*BLANKS1 (S"0 MCTooWn) 
M G C 2 _ ( CO NC ((NOT (EQUAL CHR * )) (GU MQQ021) ) ) 

(NXTCHRT' 
(GO ^^C20) _ „___ 

MO OC 2 1 "M 000 i 9 "(SETQ U Sl 

(SETQ V INPUT) 



(SETQ W COUNT) 

M0CC22 (CONC ((OR (NULL U) (NOT (EQUAL (CAR U) CHR))) 



(GO MC0023)) ) 
(SETQ U (CDR U) ) 



(NXTCHR) 

(GO M(iOC22) ' 

MCCC2T (SETG SIGNAL (NULL U)) 

(COND ((NOT (EQUAL N 3)) (GO M00024))) 



(SETQ SIGNAL (NOT SIGNAL)) 
(SETQ INPUT V) 



(SETG CHR (CAR INPUT)) 
(SETQ CGU*NT W) 



(GO ■MC0Cr25~) 

_^°^^2^ (CO ND ((NOT SIGNAL) (GO M 0002 6))) 

{CQhD (Tmi (EQUAL N 21) (GO MOOOYTTl ) 

(SETQ STAR (CONS (APPEND (CAR STAR) S) (COR STAR))) 



M00C27 (GO f^C0028) 
MCCC26 (SETQ INPUT V) 



(SETG CHR (CAR INPUT)) 

(SETQ CCUNT V^) H00028 M00025 (RETURN SIGNAL))))))) 



(1 DEFINE (((CMPR2 (LAMBDA (X) 

( PROG N I L (CCNO ((NOT J CMPi< X) ) (GO H00Q29) )) 
( $ E TQ sTM '{ CON S ( C OMPR E S STKl S TAR ) ) 
(RETURN T) M00029 (RETURN F ))))))) 



(1 DEFINE" (((CMPR (LAMBDA (S) (PROG NIL (RETURN (COMPARE SI))))))J) 
(1 DEFINE (((CGMPS (LAMBDA (S) (PRCG NIL (RETURN (COMPARE S 2)))))))) 



(1 DEFINE (((NCOMP (LAMBDA (S ) (PRCG NIL (RETURN (COMPARE S 3)))))))) 
(1 DEFINE (((ERRORX (LAMBDA NIL (PROG (X) 



(SETQ X (WRS NIL)) 
(PRINTLN LINE) 



(BLANKS (SUei (DIFFEK MAXIHLM C'OLUMN)')) 

(PRINlCh • ) (iiiRPRI) (WRS A) ISETQ OK T) (RETURN f )))))) ) 



(1 DEFINE (({MARK (LAMBLA NIL (PROG NIL M00030 (COND ( ( NO 1 (EQUAL CHR 
• )) (GO F0003i))) ___ ^__ _^ 

(NXICHR) 

(GO ^^C0C3C; ___ 



MC0C31 (SETC SKIP*BLANKS f) (SETQ STAR (CONS NIL STAR)))))))) 

(1„DEFINE (((TCKEN (LAMBDA (W X) 

(PROC NIL (StiTQ SKIP*BLANKS T) 
(COND ((NOT (NOT_X)J (^GO „m)003^) ) ) 



(SEIQ STAR (COR STAR)) M00032 (RETURN X))))))) 
(1 DEFINE (((INSERT (LAMBDA (S) 



(PROG NIL (SETQ STAR (CONS (APPEND (CAR STAR) S) (CDR STAR))) 
(RETURN T) ) ) )) )) 



(I DEFINE (((START (LAH6UA Nil (PRCG (X) 

(SETQ X (CAR STAR)) (SETQ STAR (CDR STAR)) (RETURN X ))))))) 



(1 DEFINE (((STAR2 (LAMBDA NIL (PROG ( X) 
(SETQ X (CACR STAR) ) 



(SETQ STAR (CONS (CAR STAR) (CDOR STAR )))• (RETURN X) )))))) 
(1 DEFINE (((STAR3 (LAMBDA NIL (PROG (X) 



(SETQ X (CACDR STAR) ) 

(SETQ STAR (CONS (CAR STAR) (CONS (CADR STAR) (CDDDR STAR)))) 



(RETURN X) ) ) ))) ) 
(1 DEFINE (((STAR4 (LAMBDA NIL (PROG (X) 



(SETQ X (CACDDR STAR)) 
(SETQ STAR (CONS (CAR STAR) 



(CONS (CACR STAR) (CONS (CADDR STAR) (CDR (CDDDR STAR)))))) 

\ (RETURN X))JJ„)_L) 

(1 DEFINE (((FLAGS (LAMBDA NIL (PROG NIL (SETQ FLA6X (CO'^S STAR FLAGX) 
) (SEIQ STAR NIL))))))) > ^ 



(1 DEFINE (((SEQ (LAMBDA (W X) 

(PROG NIL (CCNO ((NOT X) (GO M00033))) 



(^ETQ STAR (CONS (REVERSE STAR) (CAR FLAGX))) 
(GO MC0C34) 



MC0C33 (SETQ STAR (CAR FLAGX)) 

MCGC34 (SETQ FLAGX (CDR FLAGX)) (RETURN X) )))))) 



(1 DEFINE (((GNl (LAMBDA NIL (PROG NIL (COND ((NOT (NULL (CAR GEN))) 
(GO MCC035)) ) 



(SETQ GEN (CONS (GENSYM) (CCR GEN))) 
MC0C35 (RETURN (CAR GEN)))))))) 



(I DEFINE (((GN2 (LAMBDA NIL (PROG NIL (COND ((NOT (NULL (CADR GEN))) 
(GO MCC036)) ) 



(SETQ GEN (CONS (CAR GEN) (CONS (GENSYM) (CDOR GEN)))) 
MG0C36 (RETURN ( CADR GEN) )))))) ) 



(1 DEFINE (((GENl (LAMBDA NIL (PROG NIL (SETQ STAR (CONS (GNU STAR)) 
(RETURN T) ) ) )) ) ) 



(1 DEFINE (((GEN2 (LAMBDA NIL (PROG NIL (SETQ STAR (CONS (GN2) STAR)) 
(RETURN T)) ) ))) ) 



(1 DEFINE (((ANY (LAMBDA NIL (PROG NIL (SETQ STAR (CONS (APPEND (CAR 

STAR) (CCNS CHR NIL)) (CDR STAR))) (NXTCHR) (RETURN T))))))) 



(1 DEFINE (((DELETEX (LAMBDA NIL (PROG NIL (NXTCHR) (RETURN T))))))) 
(1 DEFINE (((HAKEATCM (LAMBDA NIL (PROG NIL (SETQ STAR (CONS 



(COMPRESS (CAR STAR)) (CDR STAR))) (RETURN T) )))))) 
(I DEFINE ( ( (MAKENUMBER (LAMBDA NIL (PROG (S N) 



(SETQ S (CAR STAR)) 
(SETQ N 0) 



MOCC37 (CONC ((NULL S) (GO MC0038))) 

(SETQ N (PLUS (TIMES N 10) (CHR20CT (CAR S ) ) ) ) 



(SETQ S (CDR S) ) 
(GO MaOC3 7) 



M00C38 (SETG STAR (CONS N (COR STAR))) (RETURN T))))))) 
( 1 D EFINE (((CCMPILE (LAMBDA NIL (PROG NIL (PRINT (CONS 1 ( CAR STAR))) 



( S Ei 1 Q ST AR ( COA ' STAR )) (RET {jHH x ) yy) jy ) 

(1 DEFINE (((IS IT (LAMBDA (X Y) __ ' 

(PROG (SIGNAL) " ~ " " 

(SETQ SIGNAL (NOT (ZEROP (LOGAND X (CUNVERT CHK ) )) )) 

(CCND ( (NOT SIGNAU ~(GX)'M00a39) )j " ' — -- - 

iCUtsD ((NOT Y) (GU ^.00040))) 

(SETQ STAR iCONS "(APPEND (CAKSTAK) (CONS CHR NIL) ) 

(OCR STAR))) MC0040 (NXTCHR) M00039 ( RETURN S iG\AL )))))) ) 
i 1 DEFINE ( ( {HAKfc(:hR iLMBbANir (PlUJG Nil TSETQ STAR '( OiNS "(CAR TCAR" 

STAR ) ) (j:OR^ STAR n ) (RETU RN T) ) ) ) ) ) ) 

(1 DEFINE (((^FERE TLaMBUA (X f) 

_ (PROG (A B) ^ 

(SETG A ID«vr 

(SETQ IC*V V) (SEJQ B (X)) (SETQ ID«V A) (RETURN B))))))) 

(i DEFINE (((CFECK ( LAMBDA Ta B) 
(PROG (X) 



(OPEN A (QUOTE DISC) (QUOTE PERM)) 

( P £ N B ( Q U C T E JJj S C) ( Q UO TE PERM)) 

MdOC^l ((:0NC riEQUAL (SETQ X (PR0G2 (RDS A) (READ) If 

(QUOTE ECF)) (GO MO 0042 )n 

(COND(TNOT"(liOT (EQUAL X~l PROi^ flRDS" BTTREAOmn 
(GO MC0043))) 



(PRINT (QUOTE BAD)) 

M00C43 (CONC ((NOT (EQUAL ( CADR X) (QUOTE DEFINE))) 



(G0~MC0C)4^))) ' 

(PRINT (CAR (CAR (CAR ( CADQR JO^) ) ) ) 

^^^^_^^_„^^^ ^^^^^_ M00042"lRbS Hit) ISHUT Al j <^ii:^gj j^ j yyjyjj y 

(1 DEFINE (((PRINTLNl (LAMBDA (U) 



(PROG (X) 
_(COND ((NOT ( EQUAL U NIL)) (GO HQ0Q45))) 

(RETURN NIL) 

MCCC45 (SETG X (PRINTLNl (CDR U))) 



(COND ((NOT (AND (EQUAL X NIL) (EQUAL (CAR U) • )) ) 
(GO MCG046)) ) 



TrITURN NIL) M00046 (RETURN (CONS (CAR U) X)))))))) 
ri DEFINE^ ( ( (J AVer (lam bda n il ( PRQG NIL (SETQ BACK (CON S ( CONS INPUT 
(CONS STaR"~TC0NS FLA(j"X (CONS COUNT NIL)))) BACK))nTni 

( 1 D£ fine ( ( ( R E ST RE (LAMBDA ( W X) ' 

(PROG NIL TSETQ BACK (CD~R BACKTI fRFTURN X) )) }) ) ) 
n^DEFINE ( ( (BACKUP (LA MBDA tX) 

Tprog (A)" 

(SETQ A (ANC X OK)J 

(CONO TTNOTINOT OKT) (GO M (30047771 

(SETQ INP^ITIJCAR (CAR_BACK) )J 

"(SETQ star (CATO (CAR BACKll) 

(SETQ FLAGX (CADDR (CAR BACK))) 



(SETQ COUNT (CADDUR (CAR BACK))) 

(SETQ CHR (CAR INPUT)) (SET Q OK T) H00a47 (RETURN A)))))) ) 

(1 OEFfNE (((E¥TER (IAHBOA NIL (PROG NIL (SETQ GEN (CONS NIL (CONS 

_____ i^IL GEN) ))) ))))) 

1 1 DEFINE nTlETVE ("LAMBDA (X Y) 

___ (P^QC ^IL (SETQ GEN (CDOR GEN)) (RETURN Y))))))) 

Ti DEFINE ( (1 PR I N S T ( L AHBDA (X) 
(PROG (Z) 



{SETQ"! XT 

MC0C48 (CONC ((EQUAL Z NIL) (60M00049))) 



(PRINTCH (CAR Z)) (SETQ Z (CDR Z) ) (GO M00048) M00049)))))) 

/ 



EOF CARD ALL PROGRAM COMPATIBLE 



